remove dead code

diff --git a/Crypto.hs b/Crypto.hs
index b9a09a19bada7af1e3093bfc603c907690890904..a942cbf6efefaab5957ee44970473633a2d513ff 100644 (file)
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -25,7 +25,6 @@ module Crypto (
        decryptCipher',
        encryptKey,
        isEncKey,
-       feedFile,
        feedBytes,
        readBytes,
        readBytesStrictly,
@@ -188,9 +187,6 @@ isEncKey k = case fromKey keyVariety k of
 type Feeder = Handle -> IO ()
 type Reader m a = Handle -> m a
 
-feedFile :: FilePath -> Feeder
-feedFile f h = L.hPut h =<< L.readFile f
-
 feedBytes :: L.ByteString -> Feeder
 feedBytes = flip L.hPut